Add sanity check for checking async DNS

* src/process.c (check_for_dns): Disregard processes that have
already been killed.

diff --git a/src/process.c b/src/process.c
index 0c8fc43dd12d0fba7aaeb53ddaf7a685eae9b4c7..b232e3311518a7452e00ba91e6bbc5d3706d853f 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -4602,6 +4602,10 @@ check_for_dns (Lisp_Object proc)
   if (! p->dns_requests)
     return Qnil;
 
+  /* This process should not already be connected (or killed). */
+  if (p->infd != 0)
+    return Qnil;
+
   ret = gai_error (p->dns_requests[0]);
   if (ret == EAI_INPROGRESS)
     return Qt;